home *** CD-ROM | disk | FTP | other *** search
/ AMP Graphics Collection / AMP Graphics Collection.iso / programs / author / dirwin / data.z / PLINE32.DLL / SCRIPT / LOGON < prev   
Text File  |  1996-03-15  |  12KB  |  592 lines
  1. VERSION 2
  2.  lcd,$30009,""
  3.  sset,svaru,"V950915"
  4.  set,varl,-1
  5.  set,varg,0
  6.  if,varr,<>,0,TOP
  7.  set,varr,3
  8. TOP: set,vare,0
  9.  sset,svare,""
  10.  sset,svarv,""
  11.  add,varl,1
  12.  sset,svarj,file(varl)
  13.  ifeof,NOHUP
  14.  sif,svarj,=,"",TOP
  15.  extract,svarj,"|",1,svari
  16.  extract,svarj,"|",2,svard
  17.  sif,svari,=,"*",TOP
  18.  sif,svard,<>,"",$ENDIF
  19.  lcd,svard,""
  20.  endif
  21.  sif,svari,=,"0",FRECOK
  22.  sif,svari,=,"3",$ENDIF
  23.  extract,svarj,"|",6,svar6
  24.  extract,svarj,"|",4,svar3
  25.  extract,svarj,"|",7,svar7
  26.  extract,svarj,"|",14,svarx
  27.  extract,svarj,"|",15,svars
  28.  sset,svarv,svar6
  29.  sif,svarx,=,"R",$ENDIF
  30.  strcat,svarv,"|regfast|"
  31.  sset,svaro,$30010
  32.  endif
  33.  sif,svarx,=,"O",$ENDIF
  34.  strcat,svarv,"|ordfast|"
  35.  sset,svaro,$30011
  36.  endif
  37.  sif,svarx,=,"F",$ENDIF
  38.  strcat,svarv,"|feefast|"
  39.  sset,svaro,$30012
  40.  endif
  41.  strcat,svarv,svaru
  42.  strcat,svarv,"|PIPEHOST.SCR|$DATE|$TIME|"
  43.  strcat,svarv,svar3
  44.  strcat,svarv,"|"
  45.  strcat,svarv,svar7
  46.  strcat,svarv,"|"
  47.  strcat,svarv,svars
  48.  strcat,svarv,"|"
  49.  endif
  50.  sif,svari,=,"3",FRECOK
  51.  sif,svari,=,"S",NOHUP
  52.  sif,svari,=,"R",$ENDIF
  53.  extract,svarj,"|",3,svard
  54.  val,svard,varl
  55.  add,varl,-1
  56.  endif
  57.  jump,TOP
  58. FRECOK: set,varq,varl
  59.  extract,svarj,"|",3,svar0
  60.  extract,svarj,"|",4,svar3
  61.  extract,svarj,"|",5,svar4
  62.  extract,svarj,"|",6,svar6
  63.  extract,svarj,"|",7,svar7
  64.  extract,svarj,"|",8,svari
  65.  val,svari,var3
  66.  extract,svarj,"|",9,svari
  67.  val,svari,var5
  68.  extract,svarj,"|",10,svari
  69.  val,svari,var6
  70.  extract,svarj,"|",11,svari
  71.  val,svari,vard
  72.  extract,svarj,"|",13,svars
  73.  extract,svarj,"|",14,svarw
  74.  extract,svarj,"|",16,svarq
  75.  sif,svarq,<>,"",GOTALT
  76.  sset,svarq,svar3
  77. GOTALT: 
  78.  sendpurge,1
  79.  change_timer,55
  80.  sif,svar6,<>,"",L2OK
  81.  sset,svare,$30013
  82.  set,vare,92
  83.  jump,BADEXIT
  84. L2OK: sif,svar3,<>,"",TS1
  85.  sset,svare,$30014
  86.  set,vare,90
  87.  jump,BADEXIT
  88. TS1: if,var3,<>,0,TS2
  89.  set,var3,60
  90. TS2: jump,ts3
  91. TS3: sif,svar0,<>,"",TS4
  92.  sset,svar0,"2400,N,8,1"
  93. TS4: sif,svar4,<>,"",TS5
  94.  sset,svar4,"AT&F"
  95. TS5: jump,TS6
  96. TS6: jump,TSDONE
  97. TSDONE: SETCOMM,svar0
  98.  set,vara,0
  99. WAIT4AT: DROP_CARRIER,0,DROPCAR
  100.  send,"AT",varr
  101.  set,vara,0
  102. LOOKAGN: wait,1
  103.  LOOKFOR,"OK",WAIT1
  104.  LOOKFOR,"0",WAIT1
  105.  add,vara,1
  106.  if,vara,>,3,NORESET
  107.  jump,LOOKAGN
  108. WAIT1: DROP_CARRIER,0,DROPCAR
  109.  if,@carrier,=,0,NOCNOH
  110.  hangup
  111. NOCNOH: send,svar4,varr
  112.  waitfor,"OK",5,MODRES2
  113.  hangup
  114.  add,vara,1
  115.  if,vara,>,3,MODRES2
  116.  jump,WAIT1
  117. MODRES2: set,vara,0
  118. MODT2: send,"ATQ0V1&D2&C1",varr
  119.  waitfor,"OK",5,FORCED
  120.  hangup
  121.  add,vara,1
  122.  if,vara,>,3,NORESET
  123.  jump,MODT2
  124. NORESET: sset,svare,$30015
  125.  set,vare,91
  126.  jump,BADEXIT
  127. FORCED: send,"AT+FCLASS=0",varr
  128.  waitfor,"OK",1,DIAL
  129. DIAL: set,varb,0
  130.  set,varm,0
  131.  set,varn,0
  132.  set,var7,0
  133.  set,var9,0
  134.  add,vart,1
  135. DIALGO: str,vart,svarz
  136.  offhook,1
  137.  set,vara,0
  138.  if,var1,>=,2,USE2ND
  139.  if,var1,<,1,CHKMORE
  140.  setcomm,"2400,N,8,1"
  141. CHKMORE: if,varb,>=,1,USE2ND
  142.  if,var7,>=,1,USE2ND
  143.  if,var9,>=,1,USE2ND
  144.  jump,DIALIT
  145. USE2ND: sset,svar3,svarq
  146.  setcomm,"2400,N,8,1"
  147.  send,"AT",varr
  148.  waiton,"OK",3,&NEXT,""
  149. DIALIT: send,svar3,varr
  150. LOOP: waiton,"CONNECT",1,&NEXT,""
  151.  lookfor,"CONNECT",CONN
  152.  lookfor,"BUSY",$ENDIF
  153.  add,varb,1
  154.  if,varb,<=,var5,DIALGO
  155.  sset,svare,$30016
  156.  set,vare,80
  157.  jump,BADEXIT
  158.  endif
  159.  lookfor,"NO CARRIER",$ENDIF
  160.  add,var7,1
  161.  if,var7,<=,var5,DIALGO
  162.  sset,svare,$30017
  163.  set,vare,81
  164.  jump,BADEXIT
  165.  endif
  166.  lookfor,"NO DIALTONE",$ENDIF
  167.  sset,svare,$30018
  168.  set,vare,84
  169.  jump,BADEXIT
  170.  endif
  171.  lookfor,"VOICE",$ENDIF
  172.  sset,svare,$30019
  173.  set,vare,83
  174.  jump,BADEXIT
  175.  endif
  176.  lookfor,"login:",START
  177.  add,vara,1
  178.  if,vara,<,var3,LOOP
  179.  add,var9,1
  180.  if,var9,<=,var5,DIALGO
  181.  sset,svare,$30020
  182.  set,vare,82
  183.  jump,BADEXIT
  184. CONN: set,vara,0
  185.  sset,svar1,svar0
  186.  highspeed,0
  187. LOOKB: waiton,"2400",1,&NEXT,""
  188.  lookfor,"login:",START
  189.  add,vara,1
  190.  if,vara,<,10,LOOKB
  191.  jump,START
  192. START: if,@carrier,=,0,LITEM
  193.  DROP_CARRIER,1,DROPCAR
  194. LITEM: set,vara,0
  195.  set,varz,0
  196.  lookfor,"xnlogin:",$ENDIF
  197.  set,varx,1
  198.  endif
  199.  lookfor,"nlogin:",LOGNGIM
  200.  lookfor,"ylogin:",LOGHGIM
  201. UNEWLP: waiton,"login",1,&NEXT,""
  202.  lookfor,"xnlogin:",$ENDIF
  203.  set,varx,1
  204.  endif
  205.  lookfor,"nlogin:",LOGNGIM
  206.  lookfor,"ylogin:",LOGHGIM
  207.  lookfor,"invalid login",UAG
  208.  lookfor,"Command:",GOTCMD
  209.  add,varz,1
  210.  if,varz,<,10,UNEWLP
  211. UAG: set,varz,0
  212.  send,"huh?",1
  213.  add,vara,1
  214.  if,vara,<,4,UNEWLP
  215.  sset,svare,$30021
  216.  set,vare,70
  217.  jump,BADAGAIN
  218. LOGHGIM: sif,svarv,<>,"",$ENDIF
  219.  set,varw,3
  220.  else
  221.  set,varw,1
  222.  endif
  223.  sset,svarv,""
  224.  jump,LOGTHER
  225. LOGNGIM: set,varw,2
  226. LOGTHER: set,varz,0
  227. LOTA: set,vara,0
  228.  lcd,$30022,""
  229.  sif,svarv,<>,"",$ENDIF
  230.  sset,svarn,svarv
  231.  if,varx,=,1,$ENDIF
  232.  strcat,svarn,"X|"
  233.  else
  234.  strcat,svarn,"Z|"
  235.  endif
  236.  str,vart,svarz
  237.  strcat,svarn,svarz
  238.  strcat,svarn,"|"
  239.  str,varg,svarz
  240.  strcat,svarn,svarz
  241.  str,var1,svarz
  242.  strcat,svarn,svarz
  243.  str,varb,svarz
  244.  strcat,svarn,svarz
  245.  str,var7,svarz
  246.  strcat,svarn,svarz
  247.  str,var9,svarz
  248.  strcat,svarn,svarz
  249.  strcat,svarn,"|"
  250.  send,svarn,1
  251.  else
  252.  send,svar6,1
  253.  endif
  254.  sif,svarv,<>,"",FLEFAST
  255. LOGTAG: waiton,"Command:",3,&NEXT,""
  256.  lookfor,"Command:",GOTCMD
  257.  lookfor,"invalid login",UAG
  258.  lookfor,"login:",LOGTHER
  259.  add,vara,1
  260.  if,vara,<,5,LOGTAG
  261.  add,varz,1
  262.  if,varz,<,2,LOTA
  263.  sset,svare,$30023
  264.  set,vare,71
  265.  jump,BADAGAIN
  266. GOTCMD: lcd,$30024,""
  267.  trapcomm,svarz
  268.  extract,svarz,"|",2,svarc
  269.  val,svarc,varz
  270.  substr,"8$R@5G2K)QO",varz,1,svard
  271.  set,vara,0
  272.  sset,svarz,"i1 |"
  273.  strcat,svarz,svard
  274.  strcat,svarz,"|"
  275.  strcat,svarz,svar3
  276.  strcat,svarz,"|"
  277.  strcat,svarz,svar1
  278.  strcat,svarz,"|"
  279.  strcat,svarz,svar6
  280.  strcat,svarz,"|"
  281.  strcat,svarz,svaru
  282.  strcat,svarz,"|PIPEHOST.SCR|$DATE|$TIME|"
  283.  strcat,svarz,svar7
  284.  strcat,svarz,"|"
  285.  strcat,svarz,svarw
  286.  strcat,svarz,"|"
  287.  str,vart,svarx
  288.  strcat,svarz,svarx
  289.  strcat,svarz,"|"
  290.  str,varg,svarx
  291.  strcat,svarz,svarx
  292.  strcat,svarz,"|"
  293.  if,varx,=,1,$ENDIF
  294.  strcat,svarz,"X|"
  295.  else
  296.  strcat,svarz,"Z|"
  297.  endif
  298.  strcat,svarz,svars
  299.  strcat,svarz,"|"
  300.  str,var1,svarx
  301.  strcat,svarz,svarx
  302.  str,varb,svarx
  303.  strcat,svarz,svarx
  304.  str,var7,svarx
  305.  strcat,svarz,svarx
  306.  str,var9,svarx
  307.  strcat,svarz,svarx
  308.  strcat,svarz,"|"
  309. SCMD2: send,svarz,1
  310.  waiton,"Command:",5,&NEXT,""
  311.  lookfor,"Bad command",TCMD2
  312.  lookfor,"Command:",BCMD3
  313. TCMD2: add,vara,1
  314.  if,vara,>,5,NOCMD2
  315.  jump,SCMD2
  316. NOCMD2: sset,svare,$30025
  317.  set,vare,72
  318.  jump,BADAGAIN
  319. BCMD3: trapcomm,svarr
  320. PROCF: if,varw,=,3,FAKEREG
  321.  add,varl,1
  322.  sset,svarj,file(varl)
  323.  ifeof,DONECF
  324.  jump,NOTEOF
  325. FAKEREG: set,varw,1
  326.  extract,svarj,"|",2,svarx
  327.  extract,svarj,"|",12,svard
  328.  extract,svarj,"|",13,svarz
  329.  sset,svarj,"2|"
  330.  strcat,svarj,svarx
  331.  strcat,svarj,"|"
  332.  scrcat,svarj,svard
  333.  strcat,svarj,"|"
  334.  strcat,svarj,svarz
  335.  jump,NOTEOF
  336. DONECF: set,varl,-2
  337.  jump,LOGOFF
  338. NOTEOF: sif,svarj,=,"",PROCF
  339.  extract,svarj,"|",1,svari
  340.  extract,svarj,"|",2,svard
  341.  sif,svari,=,"*",PROCF
  342.  sif,svari,=,"1",SHOWDIS
  343.  sif,svari,=,"2",SHOWDIS
  344.  sif,svari,=,"5",SHOWDIS
  345.  sif,svari,=,"6",SHOWDIS
  346.  sif,svari,=,"B",SHOWDIS
  347.  sif,svari,=,"W",SHOWDIS
  348.  jump,PASTDIS
  349. SHOWDIS: sif,svard,<>,"",$ENDIF
  350.  lcd,svard,""
  351.  endif
  352. PASTDIS: sif,svari,=,"2",DOREG
  353.  sif,svari,=,"0",BACKUPL
  354.  sif,svari,=,"3",BACKUPL
  355.  sif,svari,=,"4",DOORD
  356.  sif,svari,=,"B",DOCMD
  357.  sif,svari,=,"W",PWFOR
  358.  sif,svari,=,"S",BACKUPL
  359.  sif,svari,=,"R",BACKUPL
  360.  sif,svari,=,"5",DOFSR
  361.  jump,PROCF
  362. DOFSR: extract,svarj,"|",3,svarx
  363.  extract,svarj,"|",4,svara
  364.  extract,svarj,"|",9,svarb
  365.  sif,svarx,=,"S",$ENDIF
  366.  if,varx,=,0,$ENDIF
  367.  sset,svar8,"uploadz "
  368.  sset,svart,"zmsend,svara,svarb,0,vare"
  369.  endif
  370.  if,varx,=,1,$ENDIF
  371.  sset,svar8,"uploadx "
  372.  sset,svart,"xmsend,svara,vare"
  373.  endif
  374.  gosub,ZMODEM
  375.  else
  376.  if,varx,=,0,$ENDIF
  377.  sset,svar8,"downloadz "
  378.  sset,svart,"zmrecv,svara,svarb,0,vare"
  379.  endif
  380.  if,varx,=,1,$ENDIF
  381.  sset,svar8,"downloadx "
  382.  sset,svart,"xmrecv,svara,svarb,vare"
  383.  endif
  384.  gosub,ZMODEM
  385.  endif
  386.  jump,PROCF
  387. BACKUPL: add,varl,-1
  388.  jump,LOGOFF
  389. PWFOR: extract,svarj,"|",5,svari
  390.  val,svari,vark
  391.  extract,svarj,"|",3,svari
  392.  extract,svarj,"|",4,svark
  393.  send,svari,1
  394.  set,vara,0
  395. WEGLIV: waiton,svark,1,&NEXT,""
  396.  lookfor,svark,GOTWEW
  397.  lookfor,"Command:",PROCF
  398.  add,vara,1
  399.  if,vara,>,vark,PROCF
  400.  jump,WEGLIV
  401. GOTWEW: extract,svarj,"|",6,svari
  402.  sif,svari,=,"0",PROCF
  403.  sif,svari,=,"1",$ENDIF
  404.  extract,svarj,"|",7,svara
  405.  extract,svarj,"|",8,svarb
  406.  if,varx,=,0,$ENDIF
  407.  sset,svar8,"downloadz "
  408.  sset,svart,"zmrecv,svara,svarb,0,vare"
  409.  endif
  410.  if,varx,=,1,$ENDIF
  411.  sset,svar8,"downloadx "
  412.  sset,svart,"xmrecv,svara,svarb,vare"
  413.  endif
  414.  gosub,STARTGS
  415.  endif
  416.  sif,svari,=,"2",$ENDIF
  417.  extract,svarj,"|",7,svara
  418.  extract,svarj,"|",8,svarb
  419.  if,varx,=,0,$ENDIF
  420.  sset,svar8,"uploadz "
  421.  sset,svart,"zmsend,svara,svarb,0,vare"
  422.  endif
  423.  if,varx,=,1,$ENDIF
  424.  sset,svar8,"uploadx "
  425.  sset,svart,"xmsend,svara,vare"
  426.  endif
  427.  gosub,STARTGS
  428.  endif
  429.  jump,PROCF
  430. DOCMD: set,vara,0
  431. TRYDA: extract,svarj,"|",3,svarz
  432.  send,svarz,1
  433.  waiton,"Command:",5,&NEXT,""
  434.  lookfor,"Bad command",TRYDOC
  435.  lookfor,"procedure...",$ENDIF
  436.  sset,svara,""
  437.  sset,svarb,""
  438.  sset,svart,"zmrecv,svara,svarb,0,vare"
  439.  sset,svar8,"downloadz"
  440.  gosub,STARTGS
  441.  endif
  442.  lookfor,"Command:",PROCF
  443. TRYDOC: add,vara,1
  444.  if,vara,<,3,TRYDA
  445.  sset,svare,$30026
  446.  set,vare,69
  447.  jump,BADAGAIN
  448. FLEFAST: lcd,svaro,""
  449.  extract,svarj,"|",12,svard
  450.  extract,svarj,"|",13,svarz
  451.  gosub,SENDREG
  452.  DROP_CARRIER,0,DROPCAR
  453.  if,vare,=,0,PROCF
  454.  sset,svare,$30030
  455.  set,vare,63
  456.  jump,BADAGAIN
  457. DOREG: set,varv,0
  458.  jump,STARTDO
  459. DOORD: set,varv,1
  460. STARTDO: set,vara,0
  461. STARTR: if,varv,=,0,$ENDIF
  462.  lcd,$30031,""
  463.  send,"reg",1
  464.  else
  465.  lcd,$30032,""
  466.  send,"order",1
  467.  endif
  468.  waiton,"procedure...",5,&NEXT,""
  469.  lookfor,"Bad command",TBC
  470.  lookfor,"procedure...",STARTZ
  471. TBC: add,vara,1
  472.  if,vara,<,3,STARTR
  473.  sset,svare,$30033
  474.  set,vare,64
  475.  jump,BADAGAIN
  476. STARTZ: extract,svarj,"|",3,svard
  477.  extract,svarj,"|",4,svarz
  478.  gosub,SENDREG
  479.  if,vare,=,0,STARTG
  480.  sset,svare,$30034
  481.  set,vare,63
  482.  jump,BADAGAIN
  483. STARTG: set,vara,0
  484. LOOKCAG: waiton,"Command:",10,&NEXT,""
  485.  lookfor,"Bad command",WAKEU
  486.  lookfor,"Command:",GOTC1
  487. WAKEU: send,"record Waking you up...",1
  488.  add,vara,1
  489.  if,vara,<,3,LOOKCAG
  490.  sset,svare,$30035
  491.  set,vare,61
  492.  jump,BADAGAIN
  493. GOTC1: lcd,$30036,""
  494.  jump,PROCF
  495. ZMODEM: set,vara,0
  496. ZMODEMG: send,svar8,0
  497.  send,svarb,1
  498.  waiton,"procedure...",5,&NEXT,""
  499.  lookfor,"Bad command",BADSR
  500.  lookfor,"procedure...",STARTGS
  501. BADSR: add,vara,1
  502.  if,vara,<,3,ZMODEMG
  503.  sset,svare,$30037
  504.  set,vare,65
  505.  jump,BADAGAIN
  506. BSTARTGS: gosub,STARTGS
  507.  jump,PROCF
  508. STARTGS: sif,svar8,=,"downloadz ",WERECV
  509.  sif,svar8,=,"downloadx ",WERECV
  510.  jump,FTD
  511. WERECV: lcd,$30038,svara
  512. FTD: exec_string,svart
  513.  if,vare,=,0,GOODSR
  514.  lcd,$30039,svara
  515.  return
  516. GOODSR: sif,svar8,=,"uploadz ",FILESENT
  517.  sif,svar8,=,"uploadx ",FILESENT
  518.  add,varm,1
  519.  return
  520. FILESENT: add,varn,1
  521.  return
  522. SENDREG: sif,svarz,<>,"1",GOREG
  523.  compress,svard,"$FLECOMP.TMP",vare
  524.  if,vare,<>,0,GOREG
  525.  sset,svard,"$FLECOMP.TMP"
  526. GOREG: if,varx,=,1,$ENDIF
  527.  xmsend,svard,vare
  528.  else
  529.  zmsend,svard,"",0,vare
  530.  endif
  531.  return
  532. LOGOFF: if,@carrier,=,0,OKEXIT
  533.  DROP_CARRIER,1,OKEXIT
  534.  lcd,$30041,""
  535.  set,vara,0
  536. SLOGOFF: send,"exit",1
  537.  waiton,"Goodbye",5,&NEXT,""
  538.  lookfor,"Goodbye",WEHANG
  539.  add,vara,1
  540.  if,vara,>,5,NOLOGOFF
  541.  jump,SLOGOFF
  542. NOLOGOFF: sset,svare,$30042
  543.  set,vare,75
  544.  jump,BADAGAIN
  545. WEHANG: if,@carrier,=,0,OKEXIT
  546.  hangup
  547. OKEXIT: lcd,$30043,""
  548.  set,var1,0
  549.  set,var2,0
  550.  if,varl,<>,-2,TOP
  551.  jump,NOHUP
  552. DROPCAR: OFFHOOK,0
  553.  add,var1,1
  554.  if,var1,>,var6,DIE
  555.  if,var1,=,var6,$ENDIF
  556.  set,varx,1
  557.  endif
  558.  set,varl,varq
  559.  add,varl,-1
  560.  lcd,$30044,""
  561.  add,varg,1
  562.  jump,TOP
  563. BADAGAIN: OFFHOOK,0
  564.  add,var2,1
  565.  if,var2,>,vard,DIE2
  566.  if,var2,=,vard,$ENDIF
  567.  set,varx,1
  568.  endif
  569.  set,varl,varq
  570.  add,varl,-1
  571.  lcd,svare,""
  572.  add,varg,1
  573.  wait,1
  574.  jump,TOP
  575. DIE: set,vare,1
  576.  sset,svare,$30045
  577.  jump,BADEXIT
  578. DIE2: set,vare,3
  579.  sset,svare,$30046
  580.  jump,BADEXIT
  581. BADEXIT: sif,svare,<>,"",BE2ON
  582.  set,vare,99
  583.  sset,svare,$30047
  584. BE2ON: strcat,svaru," "
  585.  lcd,svaru,svare
  586.  if,vare,>,89,NOHUP
  587.  DROP_CARRIER,0,DROPCAR
  588.  if,@carrier,=,0,NOHUP
  589.  hangup
  590. NOHUP: wait,1
  591.  exit,vare
  592.